
###Balance Tests (use Data File 1)
ttest q1_age if q3==2, by(treatment_no)
ttest q14_sex if q3==2, by(treatment_no)
ttest disputed_territory if q3==2, by(treatment_no)
ttest q8_politics if q3==2, by(treatment_no)
ttest q7_ctv if q3==2, by(treatment_no)

ttest q1_age if q3==1, by(treatment_yes)
ttest q14_sex if q3==1, by(treatment_yes)
ttest disputed_territory if q3==1, by(treatment_yes)
ttest q8_politics if q3==1, by(treatment_yes)
ttest q7_ctv if q3==1, by(treatment_yes)


###Experimental Analysis (use Data File 1)
ttest approval_experiment if q3==2, by(treatment_no)
ttest approval_experiment if q3==1, by(treatment_yes)


###Graphs for Experimental Analysis (use Data File 2)
serrbar mean_approval_yes confidence_interval_yes x_position, xlabel(1 "Implemented Majority Vote" 2 "Rejected Majority Vote") xtitle(" ") title("ICJ Supporters") ytitle("Mean Government Approval") saving(icjsupporters)
serrbar mean_approval_no confidence_interval_no x_position, xlabel(1 "Implemented Majority Vote" 2 "Rejected  Majority Vote") xtitle(" ") title("ICJ Opponents") ytitle("Mean Government Approval") saving(icjopponents)
gr combine icjopponents.gph icjsupporters.gph, col(2) xcommon ycommon title(Figure 1: Treatment Effects for Referendum Rejection) iscale(.65) saving(figure1)


###Analysis of Interactive Relationships  (use Data File 1)
logit approval_experiment i.party_three##treatment_noicj q1_age q14_sex disputed_territory q8_politics q7_ctv if q3==2
logit approval_experiment i.party_three##treatment_yesicj q1_age q14_sex disputed_territory q8_politics q7_ctv if q3==1

